home *** CD-ROM | disk | FTP | other *** search
- 10 JSR INIT
- 50 LDA #$00;1ST BLOCK ADDRESS $0CB9
- 60 LDX #$05;$0500 IN DISK
- 70 LDY #$03;SEND THREE BLOCKS
- 80 JSR PRGDSK
- 90 JMP SRC
- 100 J4 JSR SOURCE
- 110 SRC JSR STSCR;BLANK THE SCREEN
- 120 JSR ERR;CHECK FOR TRK & SEC ERROR
- 130 JSR SETBUF
- 140 LDA PASS;CHECK WHICH PASS WE'RE ON
- 150 BNE NOT0;IF NOT 0 THEN GOTO DESTINATION
- 160 JSR STSCR2;SET SCREEN TO NORMAL
- 170 LDA #$03;TIMES 2 = $0F23 WRITE ROUTINE
- 180 LDX #$05;$0500 IN DISK
- 190 LDY #$02;SEND TWO BLOCKS
- 200 JSR PRGDSK
- 210 JSR DEST
- 220 JSR SCR
- 230 .BYTE 13 13
- 240 .BYTE "[159] FORMATTING DISK TO [158]TRACK 40 "
- 250 .BYTE 13 0
- 260 LDX #$00
- 300 LDY #$05
- 310 JSR MEMEXC;EXECUTE DISK PROGRAM AT $0500
- 320 .FILE C35 6
-